﻿Public Class Configuracion
    Private Sub New()
    End Sub

    Private Shared instancia As Configuracion = Nothing
    Private _entorno As String = "Windows"

    Public Shared Function getInstancia() As Configuracion
        If instancia Is Nothing Then
            instancia = New Configuracion()
            Output.Print("Se creo una nueva instancia del objeto Configuracion")
        End If
        Return instancia
    End Function

    Public Property Entorno() As String
        Get
            Return _entorno
        End Get
        Set(ByVal value As String)
            _entorno = value
        End Set
    End Property

End Class